Option Explicit
Sub N_Sample023()
    Dim myStr As String
    myStr = "Excel.Application"
    If Len(myStr) > 9 Then
        MsgBox "10ӦrHWC"
    Else
        MsgBox "9ӦrHUC"
    End If
End Sub
